Os dados

Nesta análise utilizaremos dados coletados no site de transparência da câmara dos deputados que retratam as despesas da CEAP (cota para o exercício da atividade parlamentar). Essa cota é mensal e é destinada para custear gastos exclusivamente vinculados ao exercício da atividade parlamentar como passagens áreas, telefonia, serviços postais e etc.

O data frame contém as seguintes colunas:

Quais são os deputados que gastaram mais dinheiro da CEAP? Quais são os mais econômicos?

gastos_por_dep <- dados %>%
  group_by(nomeParlamentar, sgUF) %>%
  summarise(valorLiquido = sum(valorLiquido))

plot_ly(data = gastos_por_dep,
        x = ~nomeParlamentar,
        y = ~valorLiquido,
        type = "scatter") %>%
  layout(xaxis = list(showticklabels = FALSE))
## No scatter mode specifed:
##   Setting the mode to markers
##   Read more about this attribute -> https://plot.ly/r/reference/#scatter-mode

No gráfico acima conseguimos visualizar a resposta da pergunta, os pontos mais elevados representam deputados com gastos maiores, os pontos mais abaixo representam deputados com gastos menores. Podemos visualizar qual deputado é representado por cada ponto ao passar o cursor por cima deste.

Quais os estados cujos deputados gastam mais no exterior? Quais os estados cujos deputados gastam menos no exterior?

gasto_exterior_estado <- dados%>%
  select(sgUF, tipoDocumento, valorLiquido) %>%
  group_by(sgUF, tipoDocumento) %>%
  summarise(valorLiquido = sum(valorLiquido)) %>%
  filter(tipoDocumento == 2)

p <- ggplot(data = gasto_exterior_estado,
            mapping = aes(x = sgUF,
                          y = valorLiquido,
                          color = sgUF)) +
  geom_point() 

ggplotly(p)

Quais os partidos cujos parlamentares mais usam CEAP no estado da Paraíba? Quais são os que menos usam?

gasto_partido_pb <- dados %>%
  select(sgUF,valorLiquido, sgPartido) %>%
  filter(sgUF == "PB") %>%
  group_by(sgUF, sgPartido) %>%
  summarise(valorLiquido = sum(valorLiquido))

p <- ggplot(data = gasto_partido_pb,
       mapping = aes(x = sgPartido,
                     y = valorLiquido,
                     fill = sgPartido)) +
  geom_bar(stat = "identity")

ggplotly(p)

Com o gráfico acima é possível observar o partido que mais gastou e o que menos gastou,PMDB e PROS, respectivamente. Os valores gastos em reais podem ser visualizados ao se colocar o cursor em cima da barra desejada e observando o valorLiquido.

Quais os deputados que mais ultrapassam o limite de CEAP do seu estado?

limite_CEAP <- read.csv("data/limiteMensalCEAP.csv")

colnames(limite_CEAP)[1] <- c("sgUF")

gasto_limite_CEAP <- merge(x = gastos_por_dep, y = limite_CEAP, by = "sgUF", all.y = TRUE)

p <- ggplot(data = gasto_limite_CEAP,
            mapping = aes()) +
  geom_point(aes(x = nomeParlamentar,
               y = valorLiquido )) +
  geom_hline(aes(yintercept = limite_mensal,
                 colour = "#BB0000")) +
  theme(axis.text.x=element_blank(),
        axis.ticks.x=element_blank()) + 
  facet_wrap(~sgUF, ncol = 3)

ggplotly(p)

Nos gráficos acima mostramos o deputados e seus respectivos gastos com CEAP, por Estado. Os pontos acima da linha avermelhada são os que ultrapassaram o teto de gastos. O valor exato do limite de cada Estado pode ser visualizado colocando o cursor em cima da linha vermelha, o gasto e nome individual de cada deputado pode ser visto da mesma maneira.

Quais estados cujos parlamentares gastam mais com passagens aéreas?

gasto_estado_aereo <- dados %>%
  select(sgUF, tipoDespesa, valorLiquido) %>%
  filter(tipoDespesa == "Emissão Bilhete Aéreo") %>%
  group_by(sgUF) %>%
  summarise(valorLiquido = sum(valorLiquido))

p <- ggplot(data = gasto_estado_aereo,
            mapping = aes(x = sgUF,
                          y = valorLiquido,
                          fill = sgUF)) +
  geom_bar(stat = "identity")

ggplotly(p)

No gráfico acima podemos observar que o Estado que mais possui despesas com emissão de bilhetes aereos é a São Paulo.

Escolha três partidos e responda: Quais são os tipos de despesa mais utilizados no uso da CEAP pelos deputados desses partidos?

gasto_partidos <- dados %>%
  select(sgPartido, tipoDespesa, valorLiquido) %>%
  filter(sgPartido == "PMDB" | sgPartido == "PT" | sgPartido == "PSDB") %>%
  group_by(sgPartido, tipoDespesa) %>%
  summarise(valorLiquido = sum(valorLiquido))

p <- ggplot(data = gasto_partidos,
            mapping = aes(x = tipoDespesa,
                          y = valorLiquido)) +
  geom_bar(stat = "identity", nrow = 3) +
  facet_wrap(~sgPartido) +
  theme(axis.text.x=element_blank(),
        axis.ticks.x=element_blank()) 
## Warning: Ignoring unknown parameters: nrow
ggplotly(p)

Os partidos escolhidos foram o PMDB, PT e PSDB.Podemos ver que dentre os 3 partidos, o que mais possui gastos com emissão de bilhetes aereos é o PT, seguido pelo PMDB e PSDB, respectivamente. Além disso, a emissão de bilhetes aereos é, em todos os três casos, o maior ou segundo maior(PMDB) gasto do partido. O PMDB diverge dos outros dois, tendo como maior gasto a divulgação de atividade parlamentar.